home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  505b  |  25 lines
  1. 1 REM TURTLE-DEMO: 'BINAERBAUM'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 40 INPUT"BAUMGROESSE ........   48[157][157][157][157]";LE
  6. 50 INPUT"KRUEMMUNG ..........   27[157][157][157][157]";AE
  7. 60 INPUT"REKURSIONSTIEFE ....   8[157][157][157]";EW
  8. 70 INPUT"DEKREMENT ..........   1.27[157][157][157][157][157][157]";DM
  9. 80 !GRAPHICS:!INIT:!PEN0:!BACK99:GOSUB100:!FINISH
  10. 100 IFLE<EWTHENRETURN
  11. 110 !TURNLAE:!PEN1:!WALKLE
  12. 120 !PUSHLE
  13. 130 LE=LE/DM
  14. 140 GOSUB100
  15. 150 !PULLLE
  16. 160 !PEN0:!BACKLE
  17. 170 !TURNRAE*2:!PEN1:!WALKLE
  18. 180 !PUSHLE
  19. 190 LE=LE/DM
  20. 200 GOSUB100
  21. 210 !PULLLE
  22. 220 !PEN0:!BACKLE
  23. 230 !TURNLAE
  24. 240 RETURN
  25.